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MODULE RDATTR Cuan {eh} $33 35) ’ 
BEGIN 
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; ; ; 
3 4 3 
s 5 3 
3 $ 1 3 
; 8B ; 
8 Y 4 
; o 594 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
; 1 10 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ; 
3 \} Bt : :* ALL RIGHTS RESERVED. * ° 
'® * 3 
3 ig $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * ; 
; (14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bCcNse AND WITH THE * ° 
a 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE QR ANY OTHER * ; 
:; 3616 Bate 1 !e COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
: 17 001 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * . 
; 18 sd : MW TRANSFERRED. * ; 
3 H ® * 
5 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
§ 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; §§ 86 ¢ ! ” CORPORATION. * : 
: ‘a ¥ Py 
; «626 0034 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOf SUPPLIED BY DIGITAL. * : 
; 2 0026 1 !# * ; 
or 0027 1 !«* * 3 
3 8 +4 8 1 Vee AAARARAE ARATE EAE EREEEEREE REE é 
3 % 029 1 3 
3 0 0080 1 !e¢ ; 
s 1 0031 1! 3 
: ¢ Boss 1 ! FACILITY: MTAACP : 
3 0033 1: $ 
3 4 sit 1 | ABSTRACT: 3 
; 2 B82 ! This module reads attributes : 
3 i ooee : ENVIRONMENT : : 
: 9 0039 1! STARLET operating system, including privileged system services 3 
; 40 0040 1! and internal exec routines. ‘ 
3s 641 0041 1! 3 
: $§ B0eg 1 lee : 
:; 6 00435 1 : 
3 be 04k 1! : 
; 6445 45 1! 3 
4 48 Bes ! ' AUTHOR: D. H. GILLESPIE, CREATION DATE: 19-MAY-77 13:55 : 
: 48 0468 1 : 
; «649 9 1 3 
3 0 0 1 3 
3 1 1 : : 
5 : 4 1 ; 
3 4 4 1 : 
; 5 . 7 : 
: § § 1 3 
s 1 : 
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16-Sep-1984 02:30:3 AX-11 Bliss-32 V4.0-742 

12-86-1382 at ee ERTAACP SRE RDATTR.B32;1 
Implement access mode attribute for buffer probing 


v03-610 MMD0268 Meg Dumont, 23-Mar-1984 9:14 
Fix long file name support such pret for ANSI version 
3 volumes it converts the exentsion Length to 
ASCII before writing it to the Label. 


V03-009 MMD0249 Meg Dumont, 27-Feb-1984 17:35 
Fix to the buffer offset to suppor. 


v03-008 MMD0232 neg Dumont, 3-Feb-1984 16:32 
Fix bug where attribute in range was tested against MAX_CODE-1. 


VO3-007 MMD0214 eq Dumont, 33-Jan-1984 14:37 
Add support for Buffer Offset on file open for read access only. 


VO3-006 MMD0194 Meg Dumont, 4-Aug-1983 10:54 
Fix the atribute ATRS_JOURNAL to zero user buffer 


v03-005 MMD0163 ~?. Dumont, 26-Apr-1983 9:41 
Change references to 80 to the symbol ANSI_LBLSZ. Add long 
file name pupsers which includes changing the routine 
ANSI_FILE to understand that the file name is split 
between the HDR1 and HDR4 Labels. 


v03-004 MMD0090 Meg Dumont 

Take out assume on atr. 
y03-003 MMD0129 Meg Dumont 8-Apr-1983 14:21 

Change to atribute processing so that MTAACP ignores ariy ACCL's 
v03-002 MMD0002 Meg Dumont, 12-Nov-1982 10:53 


Take out ASSUME on the number of ATR. 


v03-001 MMD0001 Neg Dumont 6-Jul-1982 17:44 
Fix ASSUME for ATRSC_MAX_CODE from 30 to 37. 


v02-012 DMW00065 David Michael Walp 88-Jan-1982 
Added support for HDR1 access code 


v02-011 DMW00051 David Michael, Walp 10-Nov-1981 
Added support for ANSI 17 ‘‘a’’ character name to be passed 
back through ASCNAME attribute. 


V02-010 DMWw00048 David Michael Walp 3-Nov-1981 
added Journal ATTRIBUTE support 


v02-009 DMWw00045 David Michael Walp 28-0c t-1981 
aorernes module into routines, and comment out old 
ead code 


v02-008 DMW00041 David Michael Walp -0ct-1981 
Handle zero Julian date, and added zero time 


v02-007 oMw0003 David Michael Walp 11-Nov-1980 
New BLISS compiler, FUNCTION declaration changed from 
BBLOCK TO BLOCK. Old compiler used to give a longword 


e 
7 
o 
. 
a 
. 
o 
- 
° 
° 
° 
> 
a 
7 
. 
. 
e 
a 
a 
e 
. 
o 
. 
a 
. 
° 
. 
° 
. 
e 
. 
2 
© 
e 
. 
oe 
° 
a 
. 
. 
. 
oe 
2 
o 
= 
° 
” 
e 
. 
° 
° 
o 
. 
° 
7 
ae 
* 
e 
° 
a 
. 
° 
7 
. 
eo 
. 
a 
7 
o 
. 
e 
° 
o 
6 
e 
7 
o 
- 
a 
° 
e 
. 
a 
. 
e 
. 
oe 
. 
e 
2 
+ 
e 
+ 
o 
© 
e 
. 
e 
. 
. 
. 
e 
o 
a 


Changed to use new file header structur name 
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16-Sep-1984 02:30:3 AX-11 Bliss-32 V4.0-742 Pp 3 
127808-13 4 95:30:33 MTAACP.SRCIRDATTR.B32:1 aad, | 

; with a declaration of ‘‘BBLOCK [1]"’. 

V02-006 REFORMAT Maria del C. Nasr 30-Jun-1980 

i A000S MCNO006 Maria del C. Nasr 08-Nov-1979 19:10 

Change size of file characteris attribute. 

i A0004 MCN0003 Maria del C. Nasr 16-0ct-1979 14:19 

Add HDR3 processing 

! A0003 MCNO004 Maria del C. Nasr 15=0ct-1979 15:36 

i 

i 


LIBRARY ‘SYSSLIBRARY:L1I8.L32'; 
REQUIRE ‘SRCS:MTADEF .B32'; 
FORWARD ROUTINE 

ANS 


return the full ANSI name 
dummy up a stat block 


E _NAME : COMMON_CALL NOVALUE, 
CALCOLATE STATISTICS: COMMON_CALL NOVALUE, 
NVERT_DATE : 


' 
' 
co NOVALUE, ! converts Julian to binnary 
GET_BLOCK SIZE : NOVALUE, ! get the block size 
GET"BUFFER_OFFSET =: NOVALUE, ! get the buffer offset length 
HANDLER : COMMON_CALL NOVALUE, ! exception handler 
MOVE _DATA : COMMON CALL NOVALUE, ! move attribute date 
READ_ ATTRIBUTE : COMMON_CALL NOVALUE, ! read attributes 
2 SET_BCNT : COMMON_CALL NOVALUE; ! set # of valid buffer descr 
EXTERNAL 
CURRENT_UCB : REF BBLOCK, ' address of current UCB 
HDR1 : REF BBLOCK, ' address of HDRI(EOF1) Label 
3 HDR4 : REF BBLOCK, ! address of HDR4(EOF4) Label 
; 10_PACKET : REF BBLOCK; ! address of current IRP 
3 EXTERNAL ROUTINE 
3 FORMAT_F11HOD1 : COMMON_CALL, ! format & write ODS1 header 
LIBSCVT_DTB : ADDRESSING_MODE (ABSOLUTE);! convert decimal 2 binary 
OWN 
CURRENT_ATTRIB; ! current attribute number 


: work area for file header 
PSECT GLOBAL = SDATAS; 
GLOBAL DATA : BLOCK Feis. MITE 
ODS1_HEADER : BLOCK (512, BYTE); 
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RDATTR 1e-se 1984 02:30:3 AX-11 Bliss-32 V4.0-742 Page 4 RD 
V04-000 1e28ep- 1882 $3izei27 — EMtance sre dabartn.o3e0% «23 v0 

165 1++ 

6 : 

85 ! The Attribute Table is indexed by ectribute number. Each entry is a 

68 ! Longword which contains a description of possible file attributes. 

4 ! The entries on the table are: maximum attribute size, byte offset of 

0 ! attribute into structure, index of the action routine to process the 

f} attribute, and a description flag. 

be } read attributes action routine encoding 

a LITERAL 

78 ATR_HDR = 0, ! copy from header 

79 ATR_STAT = 1, ! build statistics block 

80 ATR_BLSZ = ¢° ! bleck size 

81 ATR_USERLBL = 3, ' user Labels 

S¢ ATR_NOP = 4, ! ignore attribute 

8 ATR_ENDLBLAST = 5, ! end of file user labels 
ATR_ZERO = 6, ! zero valued attribute 
ATR_BINDATE = 7, ! date and time 
ATR_UIC = 8, ! owner uic 
ATR_ANSI_NAME = 9 ! ANSI name in ASCII Name Attr 
ATR_HDR1_AC = 16 ! HDR1 access character 
ATR_BUFFER_OFFSET = f1, ! Buffer offset length is returned 
ATR_ACMODE = 12; ! buffer access mode 


! Attribute table flag field | 
LITERAL : : 

M_ATR_ACL 7. ! File header access control List area 
' Check that number of attributes has not changed, because 
! if it has then the value must be added to the table below 


! else the Mtaacp will treat the ATR as a valid atribute even 
! though it may not be. 


! ASSUME ( 40, ATRSC_MAX_CODE ); 
the table and its values 
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05 GLOBAL ATR_TABLE : BLOCKVECTOR C ATRSC_MAX_CODE, 1 ] INITIAL ( BYTE (¢ 
07 5, SBYTEOFFSET(FHISW_FILEOWNER), ATR_HDR, 0, 
08 SBYTEOFFSET(FHISW-FILEPROT), | ATRTHDR, 0. 
09 ATR$S_UCHAR SBYTEOFFSET(FHISW-FILECHAR), | ATRTHDR, . 
10 ATRSS-RECATIR, SBYTEOFFSET(FHISW-RECATTR), | ATRTHDR, 0; 
11 ATRSS-F ILNAM 
\¢ +ATRSS_FILTYP 
1 +ATRSC_FILVER, SBYTEOFFSET(FI1$W_F ILENAME) 
14 +FH1$K_LENGTH, ATR_HDR, 0, 
15 ATRSS_FILTYP 
16 +ATRSS_FILVER, SBYTEOFFSET(FI1$W_FILETYPE) 
17 +FHiSK LENGTH ATR_HDR, 0, 
18 ATRSS_FILVER,  SBYTEOFFSET(FI1$W_VERSION) 

19 0 +FHI$K_LENGTH ATR_HDR, 0, 
20 6 ATRSS_EXPDAT,  SBYTEOFFSET(FI{$T_EXPDATE) 

1 +FHISK_LENGTH, ATR_HDR, 0, 


1 
14-Sep-1984 46:4 MTAACP.SRCIJRDAT 


5 
6-sep-19 4 95 :70:7 co, Blis aba 


; j 604 ATRSS_STATBLK, 0, ATR_STAT, 0 
; : 606 1! the real size is 512 but it will not fit in a byte $0. 
; 607 1! there are hacks to test if size is zero and uses 512 when 
3 8 +4 ; doing checks for attribute length 
: 208 0610 10 . ATR_HDR 0, 
; 209 0611 1 ATRSS_BLOCKSIZE, 0. ATR-BLSZ, 0. : 
: 230 O61¢ 1 ATRSS-USERLABEL, ATRIUSERLBL, 0, : 
: 231 0613 1 ATRSS-ASCDATES, SBYTEOFFSET(F11$W_REVISION) ; 
; 35 0614 1 +FH1$K_LENGTH, ATR_HDR, 0, : 
; 0615 1 ATRSS_ALCONTROL, 0. ATR-NOP, 0, : 
3 0616 1 ATRSS_ENDLBLAST, 0, ATR_ENDLBLAST, 0, : 
> 235 0617 1 ATRSS-ASCNAME, © 0. ATR-ANSI i a : 
; 336 0618 1 ATRSS-CREDATE, 0, ATR-BINDATE, 0, : 
3 237 0619 1 ATRSS-REVDATE. 0, “ZERO, 0, : 
; 238 0620 1 ATRSSTEXPDATE, 0, ATRIBINDATE, 0, ; 
; 239 0621 1 ATRSSBAKDATE, 0. ZERO, 0, ; 
; 240 06 : 1 ATRSS-UIC, 0, UIC, 0, : 
> 241 0623 1 ATRSS-FPRO, $BY TEOF FSET (FH1$W_FILEPROT) : 
; he 0624 1 +FHISK_LENGTH, ATR_HDR, 0, : 
: 26 0625 1 ATR$S_RPRO, 0, ATR-ZERO, 0, : 
: 246 626 1 ATRSSTACLEVEL, 0, ATR-ZERO, 0, : 
: 245 0627 1 ATRSSTSEMASK, 0, ATR-ZERO, 0, : 
3 246 0608 1 ATRSS-UIC_RO. 0, ATRIUIC, 0, : 
3 247 0629 1 ATRSS-DIRSEQ, 0, ATR-NOP, 0; : 
; 248 0630 1 ATRSSTBACKLINK, 0, ATR-NOP 0 : 
> 249 0631 1 ATRSS-JOURNAL, 0, ATR-ZERO, 6, : 
; 250 063¢ ATRSS-HDR1_ACC, 0, ATR7HDR1_ACC, 0, : 
3 $26 bee : Use a hack similar to the 512 hack to get the max size of these fields : 
: 254 0636 10, 0, ATR_ZERO, M_ATR_ACL, : 
3; 256 0638 1 0. 0, ATR-ZERO, M"ATR-ACL. : 
: 257 0639 10, 0, ATR-ZERO, M~ATR-ACL, : 
; 258 0640 10. 0, ATR-ZERO, M"ATR-ACL, : 
; 259 0641 10, 0, ATR-ZERO, M"ATR-ACL. : 
; 260 0642 10 0, ATR-ZERO, 0; ; 
> 261 0643 1 ATRSS_ACLLENGTH, 0, ATR-ZERO, 0, : 
: 362 0644 10, 0, ATR-ZERO, M/ATR_ACL, : 
>; 26 0645 10 0, ATR-ZERO, M“ATR-ACL, : 
> 264 0646 1 ATRSS_HIGHWATER, 0. ATR-ZERO, 07 : 
3 265 64 1 ATRSS"DUMMY_ 0 ATR-ZERO, 0, : 
> 266 648 1 ATRSS-PRIVS-USED, 6, ATR-ZERO, 0; : 
: 267 0649 10 0, ATR-ZERO, M/ATR_ACL, : 
> 268 0650 1 ATRSS_ACCESS_MODE, ‘0, ATR-ACMODE, 07 : 
: 269 0651 10 6 ATR-ZERO, 0, : 
: 270 O65¢ 1 ATRSS_CLASS_MASK, 6, ATR-ZERO 0, : 
: 271 653 1 ATRSS-BUFFER_OFFSET, 0, ATRIBUFFER_OFFSET, 0)); : 
> 272 0654 1 | 
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16-Sep-1984 02:30:3 AX=11 Bliss-32_V4.0-74 
12-88-18 4 9 :aeia MTAACP, RESRDATIR-B30¢4 
GLOBAL ROUTINE READ_ATTRIBUTE (ABD) : COMMON_CALL NOVALUE = 


+4 
{ 


i FUNCTIONAL DESCRIPTION: 
This routine reads attributes 


CALLING SEQUENCE: 
READ_ATTRIBUTE (ARG1) 


INPUT PARAMETERS: 
ARG1 = address of buffer descriptors 


IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
ARG1 = address of buffer descriptors 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 


SIDE EFFECTS: 
Attribute data written into buffer packet, write-back enabled 


BEGIN 
EXTERNAL REGISTER 
COMMON s 
LOCAL 
CODE ' current attribute code 
COUNT, i length of attribute buffer 
" ' address of current attribute 
B : REF BBLOCK, ORB address 
i 


OR 
ACCESS_MODE access mode to set for attribute buffer 
VALID_READER : BITVECTOR C 1]; has the ODS header created 


MAP ABD : REF BBLOCKVECTOR C, ABDSC_LENGTH); 
! addr of buffer desc 


attribute table layout 


MAX 0,0,8,02; ! maximum size of attribute 
MACRO DISP = 0,8,8,02; ! displacement into file header 
0:16.68, 08: : 


MACRO’ ATR ' attribute type 
MACRO FLAGS = 6,24,8,08: i attribute i{ogs field 
BUILTIN FP; 


! initialize header variables 


RS . 7 + 


~1984 02:30:33 YAX=11_ BLisg-32_v4.0-74 7 
1984 $3:20:47 — EMTaACPoSRESROATYR 3021 rg 


71 

7 VALID HEADER CO) = FALSE; 

g ACCESS_MODE = .10_PACKE PFE iRPSv MODE): 

f FP = HANDLER; 

; 

, INCRU 1 FROM ABDSC_ATTRIB TO .10_PACKETCIRPSW_BCNT] = 1 DO 
CURRENT_ATTRIB = for use by Rabse TEX handler 
P = “Abp DF BD$W_TEXT + ABD C .1, ABDS$W_TEXT J; 
COUNT = BDS$W-COUNT J; 
CODE 2 CP) <0, ih - 1;7 


if an error is found, set the desc 
that is in error this also inhib 
descriptors. 


scriptor count equal to the one 
its the return of unprocessed 


check attribute code to see if its in range 
F .CODE GTRU ATRSC_MAX_CODE THEN ERR_EXIT(SS$_BADATTRIB); 
check the size against Limit 


ee ee te ee ee ee 


* ATR_TABLE C.CODE, FLAGS] alg M_ATR_ACL 
TH EN A ATR_TABLE (CODE, MAX] 
IF .MAX SIZE EQL 6 THEN MAX_SIZE = 51 
THEN ERR_EXIT isss _BADATTRIB); 


IF .COUNT GTRU .MAX_SIZE T 
END; 


now call subroutine to format attribute 
CASE gATR_TABLE C .CODE, ATR ] FROM ATR_HDR TO ATR_ACMODE OF 
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| 
scan through buffer attribute descriptors filling them in one at a time 
| 


SN NNN NNN SN 


CATR_HDR] : Ff NOT .VALID_HEADER [0] 
é BEGIN 
FORMAT F11HOD1 (ODS1 HEADER) ; 
é VALID. READER CO) = TRUE 
$ ATR_STAT : CALCULATE ASTATISTICS (); 
ATR~BLSZ : GET BLOCK 

8 ATR-USERLBL] =: _ ERRTEXIT(SS$ “BADATTRIB) ; 

9 ATR-NOP : COUNT = 

0 ATR-ENDLBLAST) : ERR EX1T(8S$_BADATTRIB) ; 

61 TR : CHSFILL(O ; COUNT DATA); 

6¢ ATR-BINDATE] : CONVERT_DATE (.CODE); 

6 ATR-UIC : BEGIN 
764 ORB = _ CURRENT UCBCUCBSL_ORB); | 
765 DATA =" ORBCORBS$L_OWNERJ: | 


ta tr are 
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ATR_ANSI_NAME] : ANS FILE WARE ( COUNT > ; 
ATR-HDR1~ACC) =: DATATL 0] = .HOR1 C HDISB_FILACCESS J; 
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3 88 768 3 ATR_BUFFER OFFSET] : GET_BUFFER_OFFSET(); 
: 389 770 & ATR-ACMODE] —: BEGIN 
: 390 771 & ACCESS MODE = MAXU (.10_PACKETCIRPSV_MODEJ, .(.P+1)<0,8>); 
: 391 108 4 COUNT = 
8 9 77 END; 
; 9 774 
> 394 775 TES; 
; 95 76 
3 96 77 IF .ATR_TABLE C .CODE, are ] EQL ATR HDR 
: 397 P 0778 THEN i KERNELS CALL (MOVE DATA 
3 98 779 & -COONT, ODS? _READER a gate TABLE C .CODE, DISP J, .P, .ABD, .I, -ACCESS_MODE) 
> 399 9780 ; ELSE IF .ATR_TABLE C~.CODE, j EQL ATR_ACMODE 
: 400 P 0781 THEN KERNEL CAP KROW E_DATA 
: 401 0786 i .COONT, DATA * .ATR_TABLE C .CODE, DISP J, ABD, .1, .10_PACKETCIRP$V_MODE]) 
> 40 P 078 ELSE KERNEL_CALL(MOVE_DATA 
: 40 0784 .COONT, DATA ATR _TABLE C .CODE, DISP J, .P, .ABD, .1, .ACCESS_MODE); 
> 404 0785 END; 
: 405 0786 
; 406 0787 1 END; 

-TITLE RDATTR 

-IDENT \V04-000\ 

-PSECT SDATAS$,NOEXE,2 

00000 DATA:: .BLKB 512 
00200 athena $12 

00 OF 20 00 00 OC 04 00 00 OA 03 00 00 08 05 00400 ATR_TABLE:: 

ore. 8, &. 6. 6,.3.. 6..8..6. 6-.12. 6..8.. 3 
54 07 00 00 36 02 00 00 34 04 00 00 2€ OF ; 040F 14, 0. 0. 18. $60. Oc Oc. be 320 Oc Oe Be. 
50 00 02 00 02 00 00 00 09 00 01 90 0 09 O41E Sh, ys. Fa Ote Os Oe. Bc Oe fa Oe Be 
00 05 00 04 04 00 OE 0 00 38 : 0 0 00420 0.0, 2, 0, 2, 6, 80,0, $ 6, $5,°56; 0. 
07 00 08 00 96 00 08 00 07 00 08 0 09 00 56 0043c¢ 0, 14. 6. 4. 6. 4. 0. 5: 0: 86, 0; 9,0 
00 02 00 00 38 02 00 08 00 04 00 06 00 08 00 00448 2. & & & & Q 8, 0, ?, 6, & 6, 
02 00 08 00 04 00 06 00 08 00 06 00 01 00 06 0045A 6, 0. 4. 0. 8. 0. 2, 56, 6, 6, 3. 6, 6. = 
00 OA 00 01 06 00 02 0 04 0 : 0 04 00 00469 0, 1, 0. 6. 0. 8. 0. 6 0. 4 0. 8. 0. 2. 
06 00 00 02 06 00 00 02 06 00 6 00 00 004 B .. +. & & oe S 6. oe S. & O te Oe * 
00 04 00 06 00 00 02 06 00 00 02 06 00 0 02 00487 16, 6, 6. 6, 6. 8. 6, 6. 6 8. 6. 6. 6 - 
04 00 06 00 04 02 06 00 00 06 00 00 00 06 00496 2. 0,0, 6, 2. SG. Ge te Oe Oe be te Oe 
00 0C 00 01 02 06 00 00 00 06 00 04 00 a 00 004A5 . 6 0. 4 0. 6. 0. 0. 0. 6. e. 0: 0. 6. 

00 0B 00 02 00 06 00 14 00 06 00 00 00484 e. . 2. oe, 6. 4. 6. & ©. & 6, 0. 0. 
6. 6. $° b° F 8, 6, 6, 6, é, 6, 30, 0, 


-PSECT S$LOCKEDD1$,NOEXE,2 


00000 CURRENT_ATTRIB: 
-BLKB 4 


.EXTRN CURRENT UCB, HDR1 
eEXTRN WORG 10_P exert 

“EXTRN FORMAT eTinoD LIBSCVT_DTB 
-EXTRN SOE SCHRRNL 


-PSECT 


SCODES,NOWRT ,2 


" 
5 
18-3 ep-1 :30: AX-11 Bi tag -32 V4.0-74 Page 9. 
14- Hats 7 95:78 3 MTAACP, §RC RDATTR.B32; ° (3) | 
07FC 00000 ENTRY READ ATTRIBUTE, Save R2,R3,R4,R5,R6,R7,RB,- ; 0655 : 
SE 08 ¢2 0000 SuBL2 #8, SP ; : 
: 1 BA BICB2 #1, VALID_HEADER + 0713 : 
00006 cf D0 0 Ov 1 -PACKET RO + 0714 : 
SA 0B ad 0 0 EF EXTZv #0; #2, 11(RO), ACCESS_MODE ; : 
gp 0099v CF 9E 0001 MOVAB HANDLER, (FP) : 716 : 
E AO ¢ 1 MOVZWL 50(RO), =(SP) + 072 : 
6— D 1c DECL (SP) : ; 
59 04 aC D 1 MOVL D, RY + 0723 : 
7 9 MOVL B 1 $ . 
01 : BSBW 40s«o26$ ; ; 
0000" CF g p 1$: MOVL | CURRENT ATTRIB : 7 3 ; 
0 6947 7E 00020 MOVAQ (R9)CIJ, RO + 07 ; 
8 69 3¢ 90 1 MOVZWL (RO), P : : 
9 ¢ 0 ADDL2. RO, P : ; 
02 A947 7F 00037 PUSHAQ 2(R9)C1) t 0724 : 
OC AE 9 3¢ 00 MOVZWL @(SP)+, COUNT : ; 
56 A 0003F MOVZBL (P), CODE : 0725 : 
6 07 9042 ECL Code ; : 
30 $ D1 00044 CMPL SODE, #48 : 0733 ; 
1B 00047 BLEQU 2$ : : 
4 BF 00049 HMU = #52 : ; 
0000'CF46 DF 00048 28: PUSHAL ATR_TABLE+3(CODE] : 0739 ; 
02 9E 9 005 CMPB (SP)+, #2 ; : 
OA 1 9005 BEQL $ ; ; 
0000'CF46 DF 0005 PUSHAL ATR FABLEC CODE} + 0740 3 
50 3 9A 0005A MOVZBL a(SP)+, SIZE 3 ° 
0 11 0005p BRB 4$ : : 
50 017C =F 36 OO5F 3$: MOVZL #380, MAX “site : 0739 : 
05 12 00064 4$: BNEQ 5$ : 0742 ; 
50 0200 8F 3C 00066 MOVZWL #512, MAX S1ZE. ; : 
50 0c AE D1 0068 5$: CMPL COUNT, MAR_S : 0743 : 
18 0 oF BLEQU 6$ : : 
4 BF 00071 CHMU #52 ; : 
0000'CF46 DF 0075 6$ PUSHAL ATR TABLE s2CCODE + 0748 ; 
o¢ 00 9€ 8F 0007 CASEB. a(SP)+, #0, #12 ; 3 
0038 0034 02D Q1A 007C 7$ WORD $73.2 : : 
A 003F 038 O9A 0084 $-7$.- ; ; 
0078 006E 0064 053 008¢ 10$-7$,- : : 
0082 0094 11$-7$.- : : 
tat : F 
1$-7$,- : $ 
+ sal S 3 $ 
13$-7$.- : : 
14$-7$.- : ; 
15$-7$.- : : 
198-23." 3 3 
17$-7$.- : : 
18$-7$ ; 3 
BLBS VALID HEADER, 21$ ; 0750 : 
PUSH ODS PeMOER 3; 075 ; 
CALL #1, FORMAT _F11HOD1 3 3 
BISB2 #1. VALID TAEADER > 0754 ; 
BRB 21§ : 0750 ; 
CALLS #0, CALCULATE_STATISTICS : 0756 ; 


iH R. 
1 4 02:30:3 AX-11 Bliss-32 V4.0-74 P 
12: a 138¢ 98:3 46: rt MTAACP. SRC RDATYR A b3oc4 - Ry 
69 11 QOOA 21$ ; : 
: fe 8 10$: CALLS 40 GET_BLOCK_SIZE : ; 
a eo : : 
ence 6 2c 8 12$: MOVCS #0, (SP), #0, COUNT, DATA : : 
3 11 00064 BRB 21$ : : 
6 oD C6 13$:  PUSHL CODE : : 
1 Fe OC CALLS #1, CONVERT_DATE : ; 
4A 1 CD BRB 21§ : ; 
00006 CF D CF 146%:  MOVL CURRENT _UC uce, RO : ; 
C¢ AO D D4 MOVL : ; 
00 BE DO 00008 MOVL Hee iw : ; 
11 0000 BRB 1$ : ; 
0c AE 9F OO0EO 15% PUSHAB COUNT : : 
oF AP OObE a. fie PRS 
00906 CF 8 Sora 168 MOVL HOR’ RO : : 
i 0 OOEF nove 33(R0), DATA : ; 
FB ited 17$ CALLS #0, GET_BUFFER_OFFSET : : 
1B 11 OOOFC BRB i$ | : ; 
00006 cr DO OOFE 18$: MOVL 10_p ACK ET : : 
or AB 81 00199 LU PR sol nO). RO : 
04 18 00100 LEQU : ; : 
01 As 9A 0010F MOVZBL 1(P), RO : ; 
50 DO 00113 198 OVL RO, ACCESS_MODE : ; 
ge AE BS HUNG Ste: GRE aM : : 
0000'CF46 bF 0011D PUSHAL ATR. TABLE+2CCODE) : ; 
9 9a 001 MOVZBL a(SP)+, RO : ; 
19 12 001 BNEQ 2 : ; 
0480 ef B 001 PUSHR igo! R10> : ; 
8 7D 0012B mova ) : : 
0000'CF46 DF 001 : PUSHAL Ate: TABLE+1CCODE1 ; : 
9E 9A 001 MOV ZBL : ; 
0000" CF 9€ 001 MOVAB a HEADER, R1 : ; 
a) aa ta sit Bra” 5 
0000' CF 9E 146 228: MOYAB Sar : : 
0000'CF46 oF 145 PUSHAL Beh Ble coe : : 
55 £0 14D ADDED R2, RI : : 
et ! : 
00006 CF 6 1 MOVL 19. PACKET RO : ; 
9 f A EXTZV r) 14(RO), -(SP) ; : 
4B iS gat: Fab fetss-rone | 
0392 F BB 166 " —- BUSHR «= #*M<R1,R8B.R9> : 
AE DD 0016A 25$: | PUSHL COUNT : 
9 DD 0016D PUSHL : 
E BD 16F PUSHL SP : 
0000v CF 9F 00171 PUSHAB MOVE_DATA : 


RBar, Her feoct9te 03:30:58 yanatt aL ieg32_v4.02749 rage} 


000000006 9F FB 00175 CALLS #9, @#SYSSCMKRNL : 
D6 0017C INCL t 0720 

04 AE 17— 26%:  CMPL 4(SP) : 

3 1a 001 BGTRU 27S : 

FEA 31 001 BRW a : 
4 00187 27$ RET : 0787 


; Routine Size: 392 bytes, Routine Base: S$CODE$S + 0000 


; 407 0788 1 


5 
-$ep-1984 02:30:3 AX-11 Bliss-32 V4.0- 
~3007 138% 96: 70:2 YRTAACP’SRe abariace 


i 


ROUTINE MOVE_DATA (COUNT, SOURCE, DESTINATION, ABD, I, ACCESS_MODE) : COMMON_CALL NOVALUE = 


tee 


Pt ot oP ot at ot ot or oy 
Ok ad a od 


OOOOCCOCOCOOCCCO 
oOo 


wr 


CoCo CoCDCO—~y 


eu 


| nine ek el el eh ek ek ee et et at et et et ee 
uw 


~ 
09 Od Cd Cd GP Od CD OD Cd CD OD Cd OD OD GD OD CD OD Od OD OD CD C9 OD CD: 


IAI. AAAI PPOPIPONPONINONDD 2 2 SS OOO 


OOCOOCOCOCOSOOOCOSOSOSOSOSOOOOOOOOOOOOO 


ww 
RIPIPIPIPIPIPIMINIPINIPIPIMIPIPINI/AIAIIN| INIA a rr i ee ee a a ee ed ed ed ed 


SOOOooooooooocooo 


MEWwN—o 


RRREKE 


FUNCTIONAL DESCRIPTION: 
Write back of attribute enabled and attribute written into buffer packet 


CALLING SEQUENCE: 
MOVE _DATA(ARG1 ,ARG2,ARG3,ARG4,ARGS,ARG6), called in kernel mode 


INPUT PARAMETERS: 
ARG] = number of characters to move 
ARG2 = source address 
ARGS = destination address 
address of buffer descriptors 
ARGS = number of current buffer descriptor 
ARG6 = access mode to set for buffer 


IMPLICIT INPUTS: 
none 


> 

r] 

aad 

eur 
‘ 


OUTPUT PARAMETERS: 
ARG3 = destination address 


IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
none 

SIDE EFFECTS: 
none 


BEGIN 
EXTERNAL REGISTER 
COMMON_REG; 
MAP 
ABD : REF BBLOCKVECTOR C, ABDSC_LENGTH); ! address of buffer descriptors 


' set the buttered read bit in the 1/0 packet to indicate to IO_DONE that 
the attribute buffers are valid 


1O_PACKETCIRPSV_FUNC) = 1; 

} restore access mode of user 
(.DESTINATION)<O, 8> = .ACCESS_MODE; 

: return actual size of attribute to user 
ABDC.1, ABD$W_COUNT] = .COUNT; 

! move attribute to buffer in system space 


5 


aBATHR, 1$zSe0-1984 93:30:33 YANG HT Lene 52_v4.g5749 


3; 6 4, ! 
3 re OB? ; CHSMOVE(.COUNT, .SOURCE, .DESTINATION + 1); 
; 468 48 END; 


003C 00000 MOVE_DATA: 


~WOR Save R2,R3,R4,R5 
50 00006 gf D 9002 MOVL 10 PACKET RO 
2a AO 2 8 9007 BISB2 #2. 42(ROS 
51 Oc aC D MOVL DESTINATION, R1 
61 18 AC 90 0000F MOVB § ACCESS_MODE, (R1) 
50 14 AC bo 00013 MOVL I, RO 
50 10 BC40 7E 00017 MOVAQ @ABDCROI, RO 
02 Ad 04 AC BO 0001C MOVW COUNT, 2(RO) 
01 Al 08 BC 04 AC se aed MOVC3 COUNT, @SOURCE, 1(R1) 
4 00028 RET 


; Routine Size: 41 bytes, Routine Base: S$CODES + 0188 


0789 
0835 


0839 
0843 


0847 
0848 


<2 
= 


5 

RDATTR 1b-se $1984 02:30:3 AX-11 Bliss-32 V4.0-74 Pa 14 

V00-000 ergo b=198e FSizeizy §— YavaabeecaeSaparya coset) "oe 

: re 8 } ROUTINE CALCULATE_STATISTICS : COMMON_CALL NOVALUE = ; 
: 47 1 1 !e6 ; 
: 238 : 1/ ; 
3 474 5 1 ! FUNCTIONAL DESCRIPTION: 3 
: on? B35 ! calculate the statistics block : 
: 47 26 1 ' CALLING SEQUENCE: ; 
: $78 $2 } CALCULATE_STATISTICS : 
: 480 Ha 1 | INPUT PARAMETERS: : 
; 481 569 . 3 none $ 
3; 4 g 61 1! $ 
: 48 B66 1 ! IMPLICIT INPUTS: 3 
; 484 863 1! DATA 3 
; 6485 864 1! 3 
: 486 0865 1 ! OUTPUT PARAMETERS: $ 
3; 487 008 1! none ‘ 
; 488 0867 1! 3 
; 489 0868 1 ! IMPLICIT OUTPUTS: 3 
; 490 0869 1! DATA get fill in : 
3; 491 0870 1! 3 
3; 49 0871 1 ! ROUTINE VALUE: 3 
; 49 Ba78 1! none 3 
: 494 0875 1! F 
; 495 0874 1 ! SIDE EFFECTS: é 
; 496 0875 1! none 3 
3; 497 0876 1! 3 
; 498 0877 1 ! USER ERRORS: é 
3; 499 0878 1! none 3 
: 500 0879 1! 3 
; 501 0880 1 !-- 3 
g 206 0881 1 3 
: 33? oars BEGIN : 
: 505 $Ba2 EXTERNAL ROUTINE ; 
: 506 0885 GTNEXT_ VOL_READ : JSB, ! mount next volume for read : 
3 dor ty, REA : COMMON_CALL, ! read MT data block ; 
; 508 887 SPA : COMMON_CALL; ! space TM 3 
; 509 0888 3 
3 10 0889 EXTERNAL REGISTER 3 
s $i Bane COMMON_REG; 3 
3 21g 891 3 
s 1 B36 ! Layout of statistics block 3 
3 14 ‘) ! 3 
: 15 94 MACRO LBN o 0.9. O28; 3 
; 1 95 MACRO BLOCKCNT = 4,0,32,02; 3 
; 51 89 MACRO ACCCNT = 9. Ok; : 
; \8 4 MACRO LCKCNT = 9,0,8,02; : 
; 520 99 EXTERNAL CURRENT_WCB —:- REF BBLOCK; ! address of current WCB ; 
@ 2 1 § LOCAL FUNCTION : BLOCK (1); F 
; ; 4 4 § FUNCTION = .10_PACKETCIRPSW_FUNC); : 
; 6 5 : If a window exists then the file has been accessed in which : 


3 


NO 


DWDONAOUVULS WN —OVOo~ 

DOOOOOCOOSCoOoO 
OOOOOOOODOOOOONO0O0O 
ooo 


MOPOPOPURD 3 2 


WSFISISIS wr 
BREESE 
Aue ~o 


IAI. AWAIT POPUP 


WN OVONAUSWN “OOO NOUL WOOO 


FIFI 
OODOOOoooooooooooo: 


ODODODOOOOOOOOO0O 


WN SO DONOUSWN-"OV0O~n 
ooo 
WANA 
unis 


a 
NOUSWN OOO 


—=PINIWIWIWI NAB BEB BEEBE ES BAW NMI WINN AIIRIPIPIPOPOPURI NUP WWII WIInonononuny 


Bee Se Se Ge Ge Se Se Ge Ge Ge Ge Se Ge Se Se Ge Se Ge Ge Ge Ge Ge Se Ge Se Ge GHGs Se FH SH Ss Se FF SF Ss SH Ss SF Se SHS Ss Ss Se Se Se Se Se ee Se Os bees 


Sab Ab hh Ah db bbubbbb bh Ab bh db 4b ab db ab bed 4b-ab-4b-th Abe dh Ab Ab Ah Al 
oO 


DOOOOOOOOOO 


SoOQoQooOoOoOoOOooOooOoOo 
oO oO 
rae 
~ 


16-50-1984 96 :70:3 AX-11 Blis 


14-Sep-1 46:4 MTAACP.SRC 


case do not bother to get block count. Also do not return 
block count if file will be accessed. 


CORE Ce NEQ 0 OR .FUNCTIONCIO$V_ACCESS] 


= 
uw 
nhunenw 


if partially created file then all statistics are zeroed 
IF_.CURRENT_VCBCVCB$V_PARTFILE] 
CHSFILL(O, 10, DATA) 


ELSE 
now if not accessed calculate block count 


BEGIN 


' accumulative block total This must be on the stack so it is 
saved when a block is done on multi-volume files 


STACKLOCAL ACCBLCNT; 
LOCAL BLCNT; 
ACCBLCNT = 0; 
WHILE 1 
DO 
BEGIN 
read trailers 


THEN EX EPOSCOST); 
LIBSCVT_DTB(EO1$S_BLOCKCNT, HORICEO1$T_BLOCKCNT), BLCNT); 
ACCBLCNT = ACCBLENT + .BLENT: 

IF .HDRICEOI$L_EOILID) EQL 'EOF1" THEN EXITLOOP; 
GTNEXT_VOL_READ(); 


0: 

ROT(.ACCBLCNT, 16); 
D ACCENT] : 
DATA LCKCNT : 


DATACLBNJ 
DATALBLOCKCNT) 
ATA 


! end of routine 


<z 


N 5 
ecSepm19be VSiaeca? — EMaatpeSReSADATIR-B3e+7 


.EXTRN GTNEXT_V LR 
eEXTRN READ BroC 
SEXTRN CURRENT _W 4? 


O7FC 00000 CALCULATE Hala beg 
QORD DATA ‘si oR4,R5,R6,R7,RB,RI,R10 


PACE. ™ 


OR 
56 0000' CF 9E 0000 MOV 
5 68 c3 900 UBL? 
2 00006 CF p OA MOVL [9reh T, RO 
é AO O00F MOVZWL tROS EF One TION 
00006 CF Dd 0013 TSTL RRENT _WCB 
, 1 BNE 
09 50 06 E 019 BBC #6, FUNCTION, 2$ 
66 7C 0001D 1$ CLRQ 
08 Ab 0101 = -&F 80 OO01E NOV #257, DATA+8 
07 0B AB £9 00026 2$ BLBC. 11(CURRENT_VCB) 
OA 00 6E 00 5? 00 A MOVCS #0, (SP), #0, Moe Soata 
04 00030 RET 
04 AE 04 00031 3S: CLRL.  ACCBLCNT 
7E E AB 9A 900 4 4$: MOVZBL 46 (CURRENT VC vce), -(SP) 
02 6E C3 00038 SUBL3. (SP), # 
00006 CF 01 FB 0003Cc CALLS #1, SPACE Th 
7E 50 BF 9A 90041 MOVZBL #86, -(SPY 
00006 CF DD 00045 PUSHL ee 
00006 CF 92 FB 00049 CALLS , READ_BLOCK 
04 50 EB 0004E BLBS 5$ 
0224 8F BF 00051 CHMU role 
3E DD 00055 5$ PUSH 
7E 00006 CF 6 C1 90047 ADDL 34, HDR1, -(SP) 
06 DD 0005 PUSHL ’ 
000000006 9F 0 FB 0005F CALLS anu 1BSCVT pre 
04 AE 6— C 90066 ADDL2 BLENT ACCEL 
31464745 BF 00006 DF D1 0006A CMPL SORT. 8 TES 1597 
05 13 90075 BEQL 6$ 
00006 30 0007 BSBW  GTNEXT_VOL_READ 
BA 11 00078 BRB 4$ 
66 bf OO7A 6$ CLRL DATA 
04 Ab 04 AE 10 9C¢ 9007¢ ROTL #16, ACCBLCNT, DATA+4 
08 A6 B4 0082 CLRW  ——dDATA+B 
04 0008 ET 


; Routine Size: 134 bytes, Routine Base: S$CODE$ + 01B1 
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6 
RDATTR 1bese -1984 02:30:3 AX-11 Bliss-32 V4.0-742 Pa 17 
yoe~000 1ergeb=188e FSizki2s §— YataatpocaeSaparynosoca peat 
; 583 961 1 ROUTINE GET_BLOCK_SIZE : NOVALUE = 
; 584 306 1 2 = 
; 5 965 1 !++ 
3 964 1! 
4 & 965 1 ! FUNCTIONAL DESCRIPTION: 
; 4 4 } } get block size from HDR2 if availible else return 512 
3 259 968 1 ! CALLING SEQUENCE: 
; 591 9 1! GET_BLOCK_SIZE 
3 238 970 1! 
; #59 0971 1 =! INPUT PARAMETERS: 
3 23¢ are 1! none 
: 595 975 1! 
; 596 974 1! IMPLICIT INPUTS: 
; 597 0975 1! DATA 
; 598 0976 1! 
; 599 097 1 ! OUTPUT PARAMETERS: 
: 600 0978 1! none 
3; 601 0979 1! 
; 60 0980 1 ! IMPLICIT OUTPUTS: 
3 0 49 : DATA get fill in 
; 605 0983 1 ! ROUTINE VALUE: 
; 606 0984 1! none 
: 607 0985 1! 
; 608 0986 1 ! SIDE EFFECTS: 
; 609 0987 1! none 
: 610 0988 1! 
; 611 0989 1 ! USER ERRORS: 
8 ol¢ 0990 1! none 
; 61 0991 1! 
3 614 0992 1 !-- 
: 615 0993 1 
; 616 0994 BEGIN 
: 617 0995 
; e183 344 EXTERNAL HDR2 : REF BBLOCK; ' address of HDR2(EOF2) Label 
3; 620 0998 LOCAL RESULT; 
: 621 0999 
; 622 1000 IF NOT LIBSCVT_DIB(HD2$S_BLOCKLEN, HDR2CHD2$T_BLOCKLEN), RESULT) 
: 623 1001 THEN RESULT = 512; 
3; 624 100 
: 625 100 DATA<O, 16> = .RESULT<O, 16>; 
: 626 1004 1 END; 
«EXTRN HDR2 
0000 00000 GET_BLOCK_SIZE: 
.QOR Save nothing ; 0961 
5E 4 C2 SUBL #4, SP : 
bp PUSH SP ; 1000 
7E 0000G CF C ADDL #5, HDR2, -(SP) : 
0D PUSHL 3 
000000006 aE fe F CALLS #3, @#LIBSCVT_DTB : 
5 E 6 BLBS RO, 1$ ; 


; Routine Size: 36 bytes, Routine Base: S$CODE$ + 0237 


: 627 1005 1 

; 628 1906 1 ROUTINE GET_BUFFER_OFFSET : NCVALUE = 

; 629 1007 1 

; 630 1008 1 !+¢ 

; 631 1009 1! 

; § ¢ 1010 1 ! FUNCTIONAL DESCRIPTION: 

:; 6 1011 1! Get buffer offset Length from HDR2. 
> 634 Ste 1! 

3 $39 1015 1 ! CALLING SEQUENCE: 

; © 1014 1! GET_BUFFER_OFFSET 

; 637 1015 1! 

; 638 1016 1 ! INPUT PARAMETERS: 

; 639 1017 1! none 

> 640 1018 1! 

; 641 1019 1 ! IMPLICIT INPUTS: 

3 a6 1020 1! DATA 

; 64 1021 1! 

3 644 10 ¢ 1 ! OUTPUT PARAMETERS: 

; 645 10235 1! none 

3; 646 1024 1! 

: 647 1025 1! IMPLICIT OUTPUTS: 

: o63 1966 : he buffer offset length gets returned in the DATA field 
; 650 1028 1 ! ROUTINE VALUE: 

3; 651 1029 1! none 

3 $38 1030 1! 

3 6) 1031 1°! SIDE EFFECTS: 

3; 654 1936 1! none 

; 655 1033 1! 

; 656 1034 1 ! USER ERRORS: 

3 €or 1035 1! none 

; 658 1036 1! 

3; 659 1037 1 !-- 

; 660 1038 1 

; 661 1039 2 BEGIN 

: 666 1040 

3 oo? 19) EXTERNAL HDR2 : REF BBLOCK; ! address of HDR2(EOF2) Label 
; 665 1948 LOCAL RESULT; 

; 666 1044 

3; 667 1045 Liescyt _DTBCHD2$S ret HDR2CHD2$T _BUFOFF], RESULT); 
; o38 nee ‘ DATA<O, 16> = .RESULT<O, 16>; 


0000 00000 GET_BUFFER_OFFSET: 
«WORD Save nothing 


6 
RDATTR 16-5 -1984 :30:3 Ax-11 BLi 
V04=000 12-808-138e 98:28:2 aT ANUP SRESRDATIN 
gE 0200 BF 3¢ 90019 MOVZWL #512, RESULT 
0000' CF GE BG QOO1E 18: Movw RESULT, DATA 
4 0002 RET 


: 1006 


= 


Bh WESTIE QBUR:EP AFLP Saath 804 roe 


5E 4 C2 SUBL2 #4, SP 3 
Of PUSH SP 3 1045 
7E 0000G CF C ADDL 330. HDR2, =(SP) 3 
02 DD 00000 PUSHL ; 
00000000G 9F 03 FB OO000F CALLS atid DTB : 
0000° CF 6E BO 00016 MOVW RESUL » DATA : 1046 
04 0001B RET 3 1047 


; Routine Size: 28 bytes, Routine Base: $CODE$ + 0258 


; 670 1048 1 


6 
1$-sep-1964 92:50:55 yarat1 BLiee=82_vé.0-749 Page 2 


3 ore 1049 1 ROUTINE CONVERT_DATE ( CODE ) : NOYALUE = 

; 67 1 29 1 

; 674 1051 1 S44 

; 675 1 26 1! 

; o78 1055 1 ! FUNCTIONAL DESCRIPTION: 

; oft ! 22 : convert the date from ANSI Julian to 64 bit binary 
; 679 1 56 1 ! CALLING SEQUENCE: 

; 680 1057 1! CONVERT_DATE 

3 1 1058 1! 

: ¢ 1059 1 ! INPUT PARAMETERS: 

3 ti 1309 1! CODE = the attribute code 

; 6 1061 1! 

> 685 1096 1 ! IMPLICIT INPUTS: 

; 686 10635 1! DATA 

; 687 1064 1! 

; 688 1065 1 ! OUTPUT PARAMETERS: 

; 689 1906 1! none 

; 690 1067 1! 

; 691 1068 1 ! IMPLICIT OUTPUTS: 

; 1069 1! DATA get fill in 

; 1070 1! 

3; 694 1071 1 ! ROUTINE VALUE: 

3; 693 1078 1! none 

; 696 1073 1! 

; 697 1074 1 ! SIDE EFFECTS: 

; 698 1075 1! none 

; 699 1076 1! 

; 700 1077 1 ! USER ERRORS: 

3 1078 1! none 

; 702 1079 1! 

: 703 1080 1 !-- 

3; 704 1081 1 

3 705 1086 1 

; 706 108 BEGIN 

: 707 1084 

; 708 1085 LOCAL 

; 9 1086 ADDR : REF BBLOCK; 

: 710 1087 

s ii 1088 EXTERNAL ROUTINE 

$ ats 1089 CONVDATE_J2R, ' convert Julian to reg date 
: ay ION SYSSBINTIM : ADDRESSING_MODE (ABSOLUTE);! ASCII to 64 bit time 
s 7t$ 1838 IF (.CODE + 1) FeLU ATRSC_CREDATE 

: rig 109 THEN ADDR = HDR PHD IST CREATEDT) 

; ne IO9e ELSE ADDR = HDRICHDIST_EXPIREDT); 

3; 719 10 IF CONVDATE_J2R(DATA + 8, .ADDR) 

; feo 193 THEN 

: 721 1098 BEGIN 

3; £ ¢ 1099 

3 ££ 1100 ! append a zero time to the date string 
3; 724 1101 ' set up a descriptor to the date string 
; 4 5 i § } and convert to 64 bit number 

> ¥ $ 1104 BIND NO_TIME = UPLIT BYTE ( * 00:00:00.00° ); 
: 728 1105 
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date was bad or no date, return binary zero 


CHSFILL ( 0, 8, DATA ); 
ND; ! end of routine 
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MVL address 
! trailing spaces 


! Space fill the temporary file identifier field 

CHSFILL (* *,FILE_SPEC_MAX,FILE_ID); 

! Copy the file identifier from the HDR1 and HDR4 Labels into a local field 
Pleae note that the size of the FILEID extension stored in the HDR4 field 


' 
i is stored in different locations depending on the ANSI version stored 
! in the VOL1 Label. 


See 


$ i 13) ! ROUTINE ANSI_FILE_NAME ( COUNT ) : COMMON_CALL NOVALUE = 

3 744 11 1 lee 

3 765 11 1! 

$ ms 11 ¢ 1 ! FUNCTIONAL DESCRIPTION: 

; 7% 11 1! Return the the ANS] file name from HDR1 and the HDR4 Labels 
; 768 1126 1! in the ASCII] name attribute 

3; 749 1125 1! 

; 750 11 $ 1 | CALLING SEQUENCE: 

3 y 1 1 : ANSI _FILE_NAME 

; 7 j 11 8 1 ! INPUT PARAMETERS: 

3 f 3 1 ? : count = the size of the users buffer 

é 736 11 § 1 ! IMPLICIT INPUTS: 

; 75 11 1! DATA 

; P28 1134 1! 

; 759 1135 1 ! OUTPUT PARAMETERS: 

3 Ke if $ ' count = the size of the users buffer minus trailing spaces 
; 76 1138 1 =! IMPLICIT OUTPUTS: 

3; 76 1139 1! the name gets filled into DATA 

: 7646 1140 1! 

; 765 1141 1 =! ROUTINE VALUE: 

; 766 1136 1! none 

3; 767 11445 1! 

; 768 1144 1°! SIDE EFFECTS: 

; 769 11445 1! none 

: 770 Bb 1! 

: 771 114 1 ! USER ERRORS: 

s Fr 1148 1! SS$_BADATTRIB - if the buffer is to small 

Te se 1149 1! 

3 774 1150 1 !-- 

: ae 1183 BEGIN 

1183 

s 77 1154 EXTERNAL REGISTER 

; 779 1155 COMMON : 

: 780 1138 

s 781 115 MAP 

3 Ms 1138 COUNT : REF VECTOR C 1, LONG J; ! pointer to long word 
3; 784 1160 LOCAL 

; 785 1161 FILE_ID : VECTOR C FILE_SPEC_MAX, BYTE F ! vector of characters 
: ree 1336 : REF BBLOCK : 

: 78 1163 STRIPED_SIZE : LONG INITIAL ( 0); i file id size minus 
3 1165 

3 11 

: 116 

3 11 

: 11 

: 11 

$ 11 

: 11 

3 11 

3 11 


SN 
uno 


FELRELSE 


————— 


H 6 
IESESCHGEE QB:ERiEF WataddyPSAe Sad Yt 8384 rave} 
! First copy the HDR1 file id 
CHSMOVE(HD1SS_FILEID, HDRICHDIST_FILEIDJ, FILE_ID(0)); 
! The get the HDR4 fiel id extension 


MVL = ,CURRENT_VCBE CBSL_MVLI; 
IF -AVLERVLSB_STDVER GTR3 


a | 


MEIN —OOONOu 


GIN 
IF “HORA CHD4SB_F ILEIO_EXT SIZE GTRU 0 


CHSMOVE ( .HDR4CHD4$B_FILEID_EXT $ 


IZE) 
FILE_TOCHB1$s 


HDR4CHD4$T_FILEID_EXT), 
FILEIDI) 


| 
END ' 
ELSE 
BEGIN 
LOCAL SIZE; 
IF NOT LIBScvT_pTBCHD4s$s FILEID_EXT_V3, 
HDORSCADGST_FILEIB_EXT_V3], SIZE) 
THEN SIZE = 0 


L 
CHSMOVE(.SIZE, HDR4CHD4$T FILEID_EXT3, 
fe FILE_fO0CHD1$S_FILEID)): 


! find the size of the File Id minus trailing spaces 


DECR I FROM (FILE_SPEC_MAX - 1) TO 0 DO 
aaa -l J NEQ* ' 


CERF UNAS SS LoSP AS LESe 


BEGIN 
STRIPED SIZE = .1 + 1; 
EXITLOOP 


Wa 


wr 
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! if the file id is to large for buffer return error 

IF .STRIPED_SIZE GTRU .COUNT C 0 ) THEN ERR_EXIT ( SSS$_BADATTRIB ); 
! copy the id to the return buffer padd with spaces 

CHSCOPY ( FILE_SPEC_MAX, FILE_I1D(0J, ' *, .COUNT C 0 J, DATA ); 

! return the actual size of the file id 

COUNT = .STRIPED_SIZE; 
END; 
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:30: AX-11 Bliss-32 V4.0-74 
95:70 ; MTAACP, neiabartn o3ec7 

TRIPED $12 

0, (SPT, iE. #79, FILE_ID 
DR1, RO 

i 4(RO), FILE_ID 

CEURRENT_VCB) , MVL 

DRS, R 

4(MiL), #3 

(RO) 

5 

(RO), R1 

\. 5(R0), FILE_1D+17 

pP 
67(RO) 
i 
#3, @#LIBSCVT_DTB 
RO. 2$ 
site 
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HDR4, RO 

s E, 5(RO), FILE_1D+17 
FILE_1DC12, #32 

1(RO), STRIPED_SIZE 

6$ 


1, 4$ 
SiRIPED_SIZE. @COUNT 


O38 
#79, FILE_ID, #32, @COUNT, DATA 
STRIPED_SIZE, COUNT 
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ROUTINE HANDLER : COMMON_CALL NOVALUE = 


i FUNCTIONAL DESCRIPTION: 


is routine does clean-up on attribute error 


i CALLING SEQUENCE: 
i HANDLER () 

i INPUT PARAMETERS: 
4 none 


i IMPLICIT INPUTS: 


CURRENT_ATTRIB = address of descriptor number for current attribute 


i QUTPUT PARAMETERS: 

+4 none 

i IMPLICIT OUTPUTS: 
none 


i ROUTINE VALUE: 


none 


i SIDE EFFECTS: 
, none 


i USER ERRORS: 


none 


BEGIN 
EXTERNAL REGISTER 
COMMON H 


FEROEL CALL COST DCMT» - CURRENT_ATTRIB); 


0000 00000 HANDLER:.WORD Save nothin 
0000" CF O0D 00002 PUSHL CURRENT_ATTRIB 
1 OO 0 PUSHL #1 
E 3 0 PUSHL SP 
0000V ff F QOOOA PUSHAB SET_BCNT 
00000000G 9F 4 FB oR ces #4,” @#SYSSCMKRNL 


22 bytes, Routine Base: S$CODES + 035B 


Tb-Sen-1984 02:50:58 YAK-T BLieg-52 4.027 


Kk 6 
RDATTR 16-Sep-1984 02:30:3 AX-11 Bliss-32 V4.0-74 
yO4~000 12-808-13 4 95:30:33 ERTAACE’ Se RDATTR.B32; 
90 64 ROUTINE SET_BCNT (NUMBER) : COMMON_CALL NOVALUE = 
: 838 isos i’ 
: 894 1268 1 | FUNCTIONAL DESCRIPTION: 
: 95 } $3 ! This routine sets the buffer count to the number of valid buffer descriptors 
; 3 1271 1 | CALLING SEQUENCE: 
: 8 : % : SET_BCNT(ARG1), called in kernel mode 
; $30 1274 1 | INPUT PARAMETERS: 
; rst : f : } The number of valid buffer descriptor 
; 308 1 3 1 | IMPLICIT INPUTS: 
: ope : re : IO_PACKET = address of current 10 request packet 
: 906 1280 1 | OUTPUT PARAMETERS: 
s st ! 4 ! } none 
: 909 1 BS 1 | IMPLICIT OUTPUTS: 
2 ta bl 
: gig 1 86 1 | ROUTINE VALUE: 
Be ig fo 
> 915 1289 1! SIDE EFFECTS: 
; 916 1290 1! none 
: 917 1291 1: 
: 918 1 3 1 | USER ERRORS: 
; 919 1295 1! none 
: 920 1294 1 
i 353 1598 1 
; 3 § 44 BEGIN 
> 925 1299 EXTERNAL REGISTER 
; 326 1300 COMMON _REG; 
: 928 130 10_PACKETCIRP$SW_BCNT) = .NUMBER; 
> 929 1303 1 END; 


0000 00000 SET_BCNT: 


~ WORD Save nothin 
50 00006 CF D0 0000 MOVL 10 PACKET, RO 
32. AD 04 AC BO 0000 MOVW NUMBER, 50(RO) 
4 0000C RET 


; Routine Size: 13 bytes, Routine Base: $CODE$ + 0371 


3; 930 1304 1 


Page 465 


1264 
1302 
1303 
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ay 


; 9 1305 1 !44e4 ; 
3 2 ¢ ! ! ; GLOBAL ROUTINE COMPLETE_USRLBL (AST_BLOCK, NUMBER) : COMMON_CALL NOVALUE = : 
3 939 1308 1 S++ ‘ 
; 9 1309 1! ‘ 
; 9 1310 1 ! FUNCTIONAL DESCRIPTION: : 
; 938 1311 1! This routine releases the current AST block, stores the users next AST ‘ 
3 378 : \§ : } control block and completes the current I0 request : 
; 941 1314 1 ! CALLING SEQUENCE: : 
; ee ! 1 : COMPLETE_USRLBL(ARG1,ARG2), called in kernel mode , 
3 944 1 i$ 1 ! INPUT PARAMETERS: : 
> 945 1 18 1} ARG] = address of user supplied AST control block ; 
3 aoe : 1 : ARG2 = number of descriptor for current attribute ; 
; 948 1321 1 =! IMPLICIT INPUTS: : 
; 949 1 ¢ , none ‘ 
; 950 1 1! : 
; 951 1324 1 ! OUTPUT PARAMETERS: : 
3 326 1325 1! none : 
; 95 1326 1! : 
3; 954 1327 1 =! IMPLICIT OUTPUTS: : 
3 D9 lsee 1 none ‘ 
; 956 1329 1! ; 
; 957 1330 1 ! ROUTINE VALUE: : 
: 958 1331 1! none ; 
Py 959 1 ¢ 1! ° 
3; 960 1 1 ! SIDE EFFECTS: : 
3; 961 1334 1! none : 
3 308 1335 1! : 
; 996 4 $$ 1 ! USER ERRORS: : 
: 964 1 1} none : 
; 965 1 3 1! : 
; 966 1339 1 !<- ‘ 
: 967 1340 1! : 
; 968 1341 1! BEGIN : 
: 969 1 $s 1! : 
3; 970 1345 1! EXTERNAL REGISTER : 
3 971 1344 1! COMMON_REG; : 
3; 97 1345 1! 3 
eo OF 1 6 1! LOCAL : 
3; 974 1347 1! PCB : REF BBLOCK; ‘ 
: 975 1368 7% 3 
: 97 1 1! IF .CURRENT_VCBCVCBSL_USRLBLAST] NEQ 0 : 
; 97 1350 1! THEN ; 
; 978 1351 1! ! if one currently recorded ; 
; 979 1 26 1! ! 3 
: 980 [5 6 BEGIN 3 
3 eas ' 32 : : DEALLOCATE(. CURRENT_VCBCVCBSL_USRLBLAST)); ! deallocate memory : 
3 ¢ : 2 ! inc user AST quota : 
; 985 1 38 1! PCB = .SCHS$GL pegvect. (10 PACKETCIRPS$L_PIDJ)<@, 16>]; F 
; F 1359 1! PCBCPCB$W_ASTCNT) = .PCBCPCBSW_ASTCNTJ~+ 1; J 
3 st ' ry ' END; : 


vb4~000 if seo 19 93:28:27 EAtaAce®SRESRDarYR: 03077 Page 445 
CURRENT_VCBCVCBSL_USRLBLAST] = .AST_BLOCK: 
IF CURRENT _VCBLVCBSV_WAIUSRLBL 


BEGIN 
10 =BONE( IO_PACKET); 
0 PACK ET ="0; ! note packet already returned to user 
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MTAACP.SRCJRDATTR.B3 


LOCAL 
AST BLOCK : REF BBLOCK, 


LENGTH; 

AST_BLOCK = .(.P+#1); ! pickup attribute following attr code 
} if AST address given then it must be a valid AST type control block 

BEGIN 

BUILTIN 

PR 3 

MODE = 0; 

LENGTH = 4; 

IF Rat LOCK NEQ 0 
(NOT PROBER(MODE ,LENGTH, .AST_BLOCK) ! check valid address 
-AST_BLOCKCACBSB_TYPE] NEQ DYN$C_ACB) ! check AST block type 

ERR_EXIT(SS$_ILLLBLAST) ; 


KERNEL_CALL (COMPLETE _USRLBL,.AST_BLOCK,.1); 
IF_.CURRENT_VCBLVCB$0_WAIUSRLBLJ 


N 
UNBLOCK (. CURRENT_VCB); 


OU WiRRsEE WRAL Puede Bs 


—nm 


! check for no AST block given 
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; 1029 1400 1 !¢ LOCAL ’ 
: 13 , 1491 : STRATCH : REF BBLOCK; ; 
3 + § 1408 } ! } if not reading or not waiting for user label read or not EOF then error : 
: 1034 1498 1 if NOT .CURRENT_WCBCWCBSV_READ] 
; 19 1297 ! (NOT .CURRENT_VCBCVCBSV_WAIUSRLBLJ : 
; 1038 1409 1 : NOT (.HDRICEO1SL_EO1LID] EQL 'EOF1' : 
: 1040 11) 1! ten “CURRENT. VCBLVCBSB_TM] EQL 2)) 
: 1048 1418 Vi ERR_EXIT(SS$_ILLUSRLBLRD) ; : 
3 He} 1212 : check if Label set terminator has been encountered already : 
; 1046 1417 1 iF (.(.HDR1)<0,16> EQL ‘HD’ AND .CURRENT_VCBCVCB$B_TM] EQL 1) 3 
¢ 1047 ig if OR (.(.HDR1S<0,16> EQL "EO" AND .CURRENT_VCBLVCBSB_TMJ EQL 0) : 
: 1049 1420 i BEGIN ; 
: 1See 136) : c—eTF,,- ee ! no more user Labels in the set ; 
: 1058 1258 i ies : 
; 105 1424 1! ELSE : 
3 1054 ae BEGIN : 
3; 1055 1426 1! LOCAL . 
; 1056 1427 1! ID, : 
3; 1057 1428 1! SCRATCH : REF BBLOCK; : 
: 1938 1°63 : } ak Rt. EQL ‘HD' : 
1060 1431 eigel? = ‘UHL ! note which set of Labels 3 
3 106@ 1438 ; ID = "UTL'; ! are to be read ; 
: ee 1ee2 : ! } one Label may be in the scratch label area if the was no HDR2 ; 
5 1066 1437 1 SCRATCH = .HDR1 + 240; ' address of scratch ‘abel ; 
3 1067 1438 IF (SCRATCH) <0,24> EQ. .1D<0,24> : 
3 +4 re | : : was one read already? ; 
> 1071 1449 1 i BEGIN : 
2 1076 144 4 CHSMOVE (. SCRATCH DATA, . COUNT) ; : 
: 1073 1444 1 | zSCRATCH = 0; ! retreive this one only once : 
1075 1446 1 ELSE 3 
: 34} ot ' BEGIN , ! no user Label previously read or reported : 
: 1078 1449 1! WHILE GIN. ; 
: 2 1039 : : fen” READ_BLOCK (DATA, . COUNT) ° 
> 1081 1452 i BEGIN ; 
; 1086 1437 : : Sore Seger USRLELD : 
: 10 1455 1 i EXITLOOP; : 
3 1985 1456 1! END; ; 
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Name 
SLOCKEDD1$ 
SDATAS 
SCODES 


File 


1$-se0-1984 92:50:55 vara}! oLieg-32_ 4.02742 


1457 1! 
1438 : } retrieve only valid user labels 
1460 1! if .DATA<O,24> EQL .1D<0,24> 
1461 1! THEN 
1406 . 3 EXITLOOP; 
1465 1! END; end of read user Label loop 
1464 IF lo STATUS<16, 16> Lss’ COUNT 
1466 1 COUNT = .10 STATUSCI6, 16>; 
1467 1! USER_STATUS<16, T6> COUNT; 
1468 1! END;~ ! end of either already read or must read 
1293 ! END; ! end of either end of Label set or retrieve Label 
1471 1 
1e%6 1 END 
1473 1 
1474 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, ered t tag bate | 
1216 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
894 NOVEC,NOWRT, RD, EXE,NOSHR, LCL. REL. CON,NOPIC.ALIGN(2) 


Library Statistics 


~$255$DUA28: CSYSLIBILIB.L32;1 


Total 
18619 


“= Symbols e<------ Pages Processing 
Loaded Percent Mapped ime 
84 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RDATTR/OBJ=OBJ$:RDATTR MSRC$:RDATTR/UPDATE=(ENHS:RDATTR) 


882 og $ 1232 data bytes 
49.6 

93 

17877 
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H poner? Used: 180 pages 
; Compilation Complete 
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